home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / robinson / frmtag2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-31  |  2.6 KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form frmUsingTags2 
  3.    BackColor       =   &H00C0E0FF&
  4.    Caption         =   "Using Tags 2"
  5.    ClientHeight    =   1650
  6.    ClientLeft      =   1095
  7.    ClientTop       =   4050
  8.    ClientWidth     =   6090
  9.    Height          =   2055
  10.    Left            =   1035
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1650
  13.    ScaleWidth      =   6090
  14.    Top             =   3705
  15.    Width           =   6210
  16.    Begin TextBox txtTagValue 
  17.       FontBold        =   -1  'True
  18.       FontItalic      =   0   'False
  19.       FontName        =   "MS Sans Serif"
  20.       FontSize        =   12
  21.       FontStrikethru  =   0   'False
  22.       FontUnderline   =   0   'False
  23.       Height          =   420
  24.       Index           =   1
  25.       Left            =   2850
  26.       TabIndex        =   3
  27.       Top             =   975
  28.       Width           =   2430
  29.    End
  30.    Begin TextBox txtTagValue 
  31.       FontBold        =   -1  'True
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Sans Serif"
  34.       FontSize        =   12
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       Height          =   420
  38.       Index           =   0
  39.       Left            =   2850
  40.       TabIndex        =   1
  41.       Top             =   330
  42.       Width           =   2430
  43.    End
  44.    Begin Label lblTagValue 
  45.       AutoSize        =   -1  'True
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "Form 2 Tag Property:"
  48.       FontBold        =   -1  'True
  49.       FontItalic      =   0   'False
  50.       FontName        =   "MS Sans Serif"
  51.       FontSize        =   12
  52.       FontStrikethru  =   0   'False
  53.       FontUnderline   =   0   'False
  54.       Height          =   300
  55.       Index           =   1
  56.       Left            =   255
  57.       TabIndex        =   2
  58.       Top             =   1035
  59.       Width           =   2535
  60.    End
  61.    Begin Label lblTagValue 
  62.       AutoSize        =   -1  'True
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "Form 1Tag Property:"
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   12
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   300
  72.       Index           =   0
  73.       Left            =   255
  74.       TabIndex        =   0
  75.       Top             =   390
  76.       Width           =   2460
  77.    End
  78. Option Explicit
  79. Sub Form_Load ()
  80.   txtTagValue(0).Text = frmUsingTags1.Tag
  81.   txtTagValue(1).Text = frmUsingTags2.Tag
  82. End Sub
  83.